home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 3 / CD ACTUAL 3.iso / linux / incoming / jstools-.6v3 / jstools- / jstools-tk3.6v3.0 / lib / jedit_modes.tcl < prev    next >
Encoding:
Text File  |  1995-02-09  |  8.5 KB  |  289 lines
  1. # jedit_modes.tcl - mode-handling procedures for jedit, a tk-based editor
  2. # 
  3. # Copyright 1992-1994 by Jay Sekora.  All rights reserved, except 
  4. # that this file may be freely redistributed in whole or in part 
  5. # for non-profit, noncommercial use.
  6.  
  7. # TO DO
  8. #   ELIMINATE REDUNDANCY!  both in the code and in what's done when a mode
  9. #     is entered (I think prefs are being read more than once on startup).
  10. #   abbrev fixes:
  11. #     maybe some heuristics for things like plurals
  12. #     maybe a syntax for suffixes (e.g., commit;t -> commitment)
  13. #   file_modes panel
  14. #   documentation for keybindings (automatic documentation?)
  15. #   problem with filename getting set when you cancel Save 
  16. #     for the first time on a new unnamed file
  17. #   improve find panel
  18. #     have find wrap around (if last time didn't match)
  19. #     regex search/replace
  20. #     find all at once (mark) and cycle through with tag nextrange
  21. #   gesture commands
  22. #   autobreaking space a problem if you use two spaces betw sentences
  23. #   word-end punctuation (and heuristics) sd be mode-specific
  24. #
  25. #   PROBLEM WITH CHANGING BINDINGS ON THE FLY!               (urgent)
  26.  
  27. # CHANGES:
  28. #   lots of binding changes (jbind*.tcl consistency)
  29. #     app-specific Emacs and vi bindings
  30. #   house(s) the s won't expand
  31. #   return key checkpoints!
  32. #   improved mode handling (hooks)
  33.  
  34. ######################################################################
  35.  
  36. ######################################################################
  37. # jedit:guess_mode f - guess mode based on filename f
  38. ######################################################################
  39.  
  40. proc jedit:guess_mode { f } {
  41.   j:debug "jedit:guess_mode $f"
  42.   global FILE_MODES LINE_MODES
  43.   
  44.   #
  45.   # first, try matching on name
  46.   #
  47.   foreach i $FILE_MODES {
  48.     if [string match [lindex $i 0] $f] {
  49.       return [lindex $i 1]
  50.     }
  51.   }
  52.   #
  53.   # then, check first line (might be a script)
  54.   #
  55.   if {[file exists $f]} {
  56.     set file [open $f {r}]
  57.     set line1 [read $file 80]        ;# unix sees 32 chars, but be generous
  58.     close $file
  59.     foreach i $LINE_MODES {
  60.       if [string match [lindex $i 0] $line1] {
  61.         return [lindex $i 1]
  62.       }
  63.     }
  64.   }
  65.   #
  66.   # no matches - just use `plain'
  67.   #
  68.   return plain
  69. }
  70.  
  71. ######################################################################
  72. # jedit:read_mode_prefs m - read prefs in $JEDIT_MODEPREFS for mode m
  73. #   Note that the defaults _can't_ be in $jstools_library/jeditmodes .
  74. ######################################################################
  75.  
  76. proc jedit:read_mode_prefs { {m plain} } {
  77.   j:debug "Reading mode prefs for mode $m."
  78.   global JEDIT_MODEPREFS HOME
  79.   j:read_prefs -array JEDIT_MODEPREFS -prefix $m \
  80.     -directory $HOME/.tk/jeditmodes -file ${m}-defaults {
  81.     {textfont default}
  82.     {textwidth 80}
  83.     {textheight 24}
  84.     {textwrap char}
  85.     {sabbrev 0}
  86.     {dabbrev 0}
  87.     {autobreak 0}
  88.     {autoindent 0}
  89.     {parenflash 0}
  90.     {savestate 0}
  91.     {buttonbar 1}
  92.     {menu,editor 1}
  93.     {menu,file 1}
  94.     {menu,edit 1}
  95.     {menu,prefs 0}
  96.     {menu,abbrev 1}
  97.     {menu,filter 1}
  98.     {menu,format 0}
  99.     {menu,mode1 0}
  100.     {menu,mode2 0}
  101.     {menu,user 1}
  102.   }
  103. }
  104.  
  105. ######################################################################
  106. # jedit:set_default_mode_prefs mode -
  107. #   set defaults for all mode-specific preferences, so that failure
  108. #   of a mode to specify a particular preference doesn't trigger
  109. #   "no such variable" errors.  doesn't actually read a file.
  110. ######################################################################
  111.  
  112. proc jedit:set_default_mode_prefs { mode } {
  113.   global JEDIT_MODEPREFS
  114.   
  115.   set JEDIT_MODEPREFS($mode,textfont) default
  116.   set JEDIT_MODEPREFS($mode,textwidth) 80
  117.   set JEDIT_MODEPREFS($mode,textheight) 24
  118.   set JEDIT_MODEPREFS($mode,textwrap) char
  119.   set JEDIT_MODEPREFS($mode,sabbrev) 0
  120.   set JEDIT_MODEPREFS($mode,dabbrev) 0
  121.   set JEDIT_MODEPREFS($mode,autobreak) 0
  122.   set JEDIT_MODEPREFS($mode,autoindent) 0
  123.   set JEDIT_MODEPREFS($mode,autoindent) 0
  124.   set JEDIT_MODEPREFS($mode,parenflash) 0
  125.   set JEDIT_MODEPREFS($mode,buttonbar) 1
  126.   set JEDIT_MODEPREFS($mode,menu,editor) 1
  127.   set JEDIT_MODEPREFS($mode,menu,file) 1
  128.   set JEDIT_MODEPREFS($mode,menu,edit) 1
  129.   set JEDIT_MODEPREFS($mode,menu,prefs) 0
  130.   set JEDIT_MODEPREFS($mode,menu,abbrev) 1
  131.   set JEDIT_MODEPREFS($mode,menu,filter) 1
  132.   set JEDIT_MODEPREFS($mode,menu,format) 0
  133.   set JEDIT_MODEPREFS($mode,menu,mode1) 0
  134.   set JEDIT_MODEPREFS($mode,menu,mode2) 0
  135.   set JEDIT_MODEPREFS($mode,menu,user) 1
  136. }
  137.  
  138. ######################################################################
  139. # mode:plain:init - setup for plain mode
  140. #   the presence of this proc guarantees that jedit won't ever need
  141. #   to look for a "plain-mode.tcl" file.  (the same technique could
  142. #   be used by applications that embed jedit and need to modify its
  143. #   behaviour.)
  144. ######################################################################
  145.  
  146. proc mode:plain:init { t } {
  147.   global JEDIT_MODEPREFS
  148.   
  149.   j:read_prefs -array JEDIT_MODEPREFS -prefix plain \
  150.     -directory ~/.tk/jeditmodes -file plain-defaults {
  151.     {textfont default}
  152.     {textwidth 80}
  153.     {textheight 24}
  154.     {textwrap char}
  155.     {sabbrev 0}
  156.     {dabbrev 0}
  157.     {autobreak 0}
  158.     {autoindent 0}
  159.     {parenflash 0}
  160.     {savestate 0}
  161.     {buttonbar 1}
  162.     {menu,editor 1}
  163.     {menu,file 1}
  164.     {menu,edit 1}
  165.     {menu,prefs 0}
  166.     {menu,abbrev 1}
  167.     {menu,filter 1}
  168.     {menu,format 0}
  169.     {menu,mode1 0}
  170.     {menu,mode2 0}
  171.     {menu,user 1}
  172.   }
  173. }
  174.  
  175. ######################################################################
  176. # jedit:apply_mode -  apply current mode for window (menus, etc.)
  177. # the window can be specified either as a text widget, or as that
  178. # text widget's corresponding toplevel window.
  179. ######################################################################
  180.  
  181. proc jedit:apply_mode { w } {
  182.   j:debug "jedit:apply_mode $w"
  183.   global HOME JEDIT_MODEPREFS tk_library jstools_library
  184.   
  185.   if { [winfo class $w] == "Text" } {
  186.     set window [jedit:text_to_top $w]
  187.     set text $w
  188.   } else {
  189.     set window $w
  190.     set text [jedit:top_to_text $w]
  191.   }
  192.   set mode [jedit:get_mode $window]
  193.   set menubar [jedit:top_to_menubar $window]
  194.   set buttonbar [jedit:top_to_buttonbar $window]
  195.   
  196.   if [winfo exists $buttonbar] {
  197.     destroy $buttonbar
  198.   }
  199.   
  200.   foreach key {0 1 2 3 4 5 6 7 8 9} {
  201.     bind $text <Meta-Key-$key> { }
  202.   }
  203.   
  204.   jedit:set_default_mode_prefs $mode
  205.   
  206.   if {"x[info procs mode:${mode}:init]" == "x"} {
  207.     # we don't already have procs to enter the mode, so
  208.     # look through a list of directories searching for the mode file:
  209.     #
  210.     set file ${mode}-mode.tcl
  211.     foreach directory [list \
  212.       $HOME/.tk/jeditmodes \
  213.       $jstools_library/jeditmodes \
  214.       $jstools_library/jedit/jeditmodes \
  215.     ] {
  216.       if [file isfile $directory/$file] {
  217.         j:debug "Reading $file in $directory."
  218.         j:source_config -directory $directory $file
  219.         break
  220.       }
  221.     }
  222.   }
  223.   mode:${mode}:init $text
  224.   jedit:mkmenus $menubar $text
  225.   if $JEDIT_MODEPREFS($mode,buttonbar) {
  226.     jedit:mkbuttonbar $buttonbar $text
  227.     pack $buttonbar -after $menubar -fill x
  228.   }
  229.   if $JEDIT_MODEPREFS($mode,parenflash) {
  230.     jedit:balance_bind $text
  231.   }
  232.   jedit:configure_text $text
  233.   jedit:set_mode_label $window $mode
  234. }
  235.  
  236. ######################################################################
  237. # set the mode a particular window is in
  238. # the window can be specified either as a text widget, or as that
  239. # text widget's corresponding toplevel window.
  240. ######################################################################
  241.  
  242. proc jedit:set_mode { w newmode } {
  243.   j:debug
  244.   global MODES HOME
  245.   
  246.   if { [winfo class $w] == "Text" } {
  247.     set window [jedit:text_to_top $w]
  248.     set text $w
  249.   } else {
  250.     set window $w
  251.     set text [jedit:top_to_text $w]
  252.   }
  253.   
  254.   # do any cleanup necessary to cancel effect of current mode
  255.   set oldmode plain
  256.   catch {set oldmode $MODES($window)}
  257.   if {[info procs mode:$oldmode:cleanup] != {}} {
  258.     catch {mode:$oldmode:cleanup $text}
  259.   }
  260.   
  261.   set MODES($window) $newmode
  262. }
  263.  
  264. ######################################################################
  265. # return the mode a particular window is in
  266. # the window can be specified either as a text widget, or as that
  267. # text widget's corresponding toplevel window.  if no mode has been
  268. # set for that window, returns "plain".
  269. ######################################################################
  270.  
  271. proc jedit:get_mode { w } {
  272. #  j:debug
  273.   global MODES
  274.   
  275.   if { [winfo class $w] == "Text" } {
  276.     set window [jedit:text_to_top $w]
  277. #    set text $w
  278.   } else {
  279.     set window $w
  280. #    set text [jedit:top_to_text $w]
  281.   }
  282.   
  283.   if [info exists MODES($window)] {
  284.     return $MODES($window)
  285.   } else {
  286.     return {plain}
  287.   }
  288. }
  289.